Simples [PortScanner]
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 4.122 ]
É um script simples. Criado para iniciantes.
Não é nenhum [nmap] mas é bem legal e funcional.
Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.
Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.
#!/usr/bin/perl #-------------------------------------------------------------------------------------------------------- # # @Author: breek # @Code: SimplePortScanner.pl # @Version: 0.1.0 # @Date: 22/02/2012 # #-------------------------------------------------------------------------------------------------------- #===============================================================# # É um script simples. Criado para iniciantes. # Não é nenhum [nmap] mas é bem legal e funcional. # # Esta bem comentado. É claro que esta em [inglês], mas # é para não perder o costume. Usei o [Google Tradutor], # caso haja alguma palavra errada é culpa é dele. # # Criado para ser modificado. Cada modificação mexa na versão. # NÃO ALTERE MEU NOME!! # NÃO ALTERE O NOME DO SCRIPT!! #===============================================================# use strict; use warnings; use IO::Socket; #-------------------------------------------------------------------------------------------------------- #__BEGIN_MAIN__ # # Name: Main # # Purpose: Initializes the script. # # Input: $Var_IP # $Var_BeginPort # $Var_EndPort # # Output: $Var_IP # $Var_Scanning # #----------------------------- #Global variables # my $Var_IP; # Recebe o [Endereço IP] - USUARIO my $Var_BeginPort; # Recebe a [Porta inicial] - USUARIO my $Var_EndPort; # Recebe a [Porta final] - USUARIO my $Var_Scanning; # Escanea as portas - SCRIPT my $Var_FindOpenPort; # Recebe as portas abertas - SCRIPT # # #----------------------------- system( "cls" ); # Recebe o [Endereço IP] # print "Enter the IP address: "; $Var_IP = <>; chomp $Var_IP; # Recebe a [Porta inicial] # print "Enter the starting port: "; $Var_BeginPort = <>; chomp $Var_BeginPort; # Recebe a [Porta final] # print "Enter the ending port: "; $Var_EndPort = <>; chomp $Var_EndPort; # Iniciando escaneamento # print "\n\nScanning IP [ $Var_IP ]. \n\n"; # Escaneando # for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ ) { $Var_FindOpenPort = IO::Socket::INET->new( PeerAddr => $Var_IP, # Endereço IP PeerPort => "$Var_Scanning", # Numero da porta Proto => "TCP", # Protocolo ); # Porta aberta encontrada # if( $Var_FindOpenPort ) { print "[+] Port [$Var_Scanning] is open. \n"; } } # Finalizando script # print "\nScanning...DONE. \n"; exit; #__END_MAIN__ #--------------------------------------------------------------------------------------------------------
Carregando automaticamente wireless via ndiswrapper II
Enviando notificações do Nagios para o MSN
Script de conectividade wireless
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Melhor hospedagem em nuvem para projetos Laravel com baixo custo? [RES... (7)
Como baixar os drivers de áudio no linux mint? (7)
Como posso localizar o arquivo HTML da página inicial do GLPI dentro d... (2)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta